home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos26.d64 / Cent. treiber (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  2KB  |  59 lines
  1. 100 REM * CENTRONICS - DRUCKER *
  2. 110 REM * F.W. (C)04.1989 *
  3. 120 POKE53280,2:POKE53281,9:POKE646,7
  4. 130 DIMD(341)
  5. 140 PRINTCHR$(147);CHR$(14);CHR$(8)
  6. 150 OPEN1,8,15,"I:0":GOSUB470
  7. 160 PRINT:INPUTN$:PRINT
  8. 170 OPEN2,8,2,"DUMMY,S,W":GOSUB470
  9. 180 PRINT"     ************************"
  10. 190 PRINT"     *                      *"
  11. 200 PRINT"     * [195]ENTRONICS - [196]RUCKER *"
  12. 210 PRINT"     *                      *"
  13. 220 PRINT"     ************************"
  14. 230 PRINT"     *   [198].[215].  ([195])04.1989   *"
  15. 240 PRINT"     ************************":PRINT:PRINT
  16. 250 INPUT" [196]RUCKMODUS (4 = [211]TANDARD) ";DM$
  17. 260 INPUT" [196]OPPELDRUCK (J/N)         ";DD$
  18. 270 INPUT" [208]APIERVORSCHUB (J/N)      ";BV$
  19. 280 RESTORE:FORI=0TO341
  20. 290 READD(I):S=S+D(I):NEXTI
  21. 300 IFS<>34965THENPRINT" [198]EHLER IN [196]ATAS":STOP
  22. 310 IF DD$="J"THEND(341)=255
  23. 320 D(262)=VAL(DM$)
  24. 330 IFBV$="N"THEND(157)=7
  25. 340 FORI=0TO341
  26. 350 PRINT#2,CHR$(D(I));
  27. 360 NEXTI:CLOSE2
  28. 370 OPEN2,8,2,"#"
  29. 380 PRINT#1,"U1";2;0;18;1
  30. 390 PRINT#1,"B-P";2;34
  31. 400 PRINT#2,CHR$(0);
  32. 410 GET#2,TD$,SD$
  33. 420 IFSD$=""THENSD$=CHR$(0)
  34. 430 PRINT#1,"B-P";2;3
  35. 440 PRINT#2,TD$;SD$;
  36. 450 PRINT#1,"U2";2;0;18;1
  37. 460 CLOSE2:CLOSE1:END
  38. 470 INPUT#1,N,T$,T,S:IFN=0THENRETURN
  39. 480 PRINTN;T$;T;S:STOP
  40. 490 REM DATAS
  41. 500 DATA96,234,234,76,15,121,76,55,121,76,153,121,76,202,121,32,68,122,169
  42. 510 DATA27,141,1,221,169,16,162,0,160,0,44,13,221,208,12,136,208,248,202
  43. 520 DATA208,245,32,95,194,162,255,96,32,229,121,32,95,194,162,0,96,32,68
  44. 530 DATA122,165,3,133,9,165,2,133,8,32,97,121,44,85,122,240,16,169,13,32
  45. 540 DATA57,122,165,3,133,9,165,2,133,8,32,97,121,32,27,122,32,95,194,96,165
  46. 550 DATA9,72,165,8,72,32,165,121,176,7,104,133,8,104,133,9,96,32,247,121
  47. 560 DATA104,133,8,104,133,9,162,79,138,72,32,38,122,32,9,122,24,169,8,101
  48. 570 DATA8,133,8,169,0,101,9,133,9,104,170,202,16,230,96,32,68,122,169,12
  49. 580 DATA32,57,122,32,95,194,96,162,7,142,94,122,162,79,172,94,122,177,8,208
  50. 590 DATA21,136,16,249,24,169,8,101,8,133,8,169,0,101,9,133,9,202,16,230,24
  51. 600 DATA96,56,96,162,80,160,90,169,0,96,141,94,122,206,94,122,172,94,122
  52. 610 DATA177,8,32,57,122,206,94,122,16,243,96,169,121,133,9,169,242,133,8
  53. 620 DATA169,5,76,209,121,8,65,27,64,27,169,122,133,9,169,4,133,8,169,5,76
  54. 630 DATA209,121,2,128,4,42,27,162,0,138,72,189,86,122,32,57,122,104,170,232
  55. 640 DATA224,8,208,241,96,169,13,32,57,122,169,10,32,57,122,96,120,160,7,177
  56. 650 DATA8,162,7,106,126,86,122,202,16,249,136,16,242,88,96,141,1,221,169
  57. 660 DATA16,44,13,221,240,251,96,32,92,194,169,255,141,3,221,169,127,141,13
  58. 670 DATA221,173,13,221,96,0
  59.